home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00052_Script_52 < prev    next >
Text File  |  1999-03-07  |  876b  |  31 lines
  1. property thePopLoc, popSprite2, popName, mySprite, faraway, fieldObj
  2. on new me
  3.   set mySprite = the spriteNum of me
  4.   set popSprite2 = mySprite - 2
  5.   puppetSprite popSprite, true    
  6.   return me
  7. end
  8. on mouseUp
  9.   global togglestate
  10.   set the member of sprite popsprite2 to "light2"
  11.   set togglestate = 1
  12.   set compair = the text of member "disPlane"
  13.   set the member of sprite popsprite2 - 2 to "imperial2"
  14.   set the member of sprite popsprite2 - 1 to "metric1"
  15.   MainSpecs
  16.   if (length(compair) > 2) and (compair<>"No Competitor") then
  17.     DisSpecs compair
  18.   end if
  19. end
  20. on mouseEnter
  21.   set the member of sprite popsprite2 to "light2h"
  22. end mouseEnter
  23. on mouseLeave
  24.   global togglestate
  25.   if togglestate = 0 then
  26.     set the member of sprite popsprite2 to "light1"
  27.   else
  28.     set the member of sprite popsprite2 to "light2"
  29.   end if
  30. end mouseLeave
  31.